home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / M / M2TSkel.cpt / M2TSkel / MultiSkel.r < prev    next >
Text File  |  1987-04-18  |  8KB  |  239 lines
  1. include $$Shell("MultiSkel")"MultiSkel.Code";
  2. #include "types.r"
  3.  
  4. resource 'ALRT' (1000, "About") {
  5.     {50, 72, 180, 340},
  6.     1000,
  7.     {    /* array: 4 elements */
  8.         /* [1] */
  9.         OK, visible, silent;
  10.         /* [2] */
  11.         OK, visible, silent;
  12.         /* [3] */
  13.         OK, visible, silent;
  14.         /* [4] */
  15.         OK, visible, silent
  16.     }
  17. };
  18.  
  19. resource 'DITL' (1000, "About", purgeable) {
  20.     {    /* array DITLarray: 3 elements */
  21.         /* [1] */
  22.         {96, 181, 116, 241},
  23.         Button {
  24.             enabled,
  25.             "OK"
  26.         };
  27.         /* [2] */
  28.         {17, 67, 80, 250},
  29.         StaticText {
  30.             disabled,
  31.             "MultiSkel\n\nTransSkel Multiple-Window App"
  32.             "lication Demonstration"
  33.         };
  34.         /* [3] */
  35.         {24, 18, 56, 50},
  36.         Icon {
  37.             disabled,
  38.             128
  39.         }
  40.     }
  41. };
  42.  
  43. resource 'ICN#' (128) {
  44.     {    /* array: 2 elements */
  45.         /* [1] */
  46.         $"0000 0000 000F F000 0078 1C00 01C0 0600"
  47.         $"0300 0300 0200 0180 0400 0080 0400 00C0"
  48.         $"0800 0070 0800 0390 103E 0668 2063 0818"
  49.         $"2040 97C8 20BE 07C8 20BE 0790 203E 67A0"
  50.         $"101C 7320 1000 F010 0800 F810 0401 FC10"
  51.         $"0201 F810 0100 0020 0080 0040 0042 4A40"
  52.         $"0042 5540 0047 5680 0022 AA80 0020 A880"
  53.         $"0010 0080 000C 0700 0003 FC00 0000 0000";
  54.         /* [2] */
  55.         $"000F F800 007F FC00 03FF FE00 07FF FF00"
  56.         $"07FF FF80 07FF FFC0 0FFF FFE0 1FFF FFF0"
  57.         $"1FFF FFF8 3FFF FFFC 3FFF FFFC 7FFF FFFC"
  58.         $"7FFF FFFC 7FFF FFFC 7FFF FFF8 7FFF FFF0"
  59.         $"3FFF FFF8 3FFF FFF8 3FFF FFF8 1FFF FFF8"
  60.         $"0FFF FFF8 07FF FFF0 03FF FFE0 01FF FFE0"
  61.         $"00FF FFE0 00FF FFC0 007F FFC0 007F FFC0"
  62.         $"007F FFC0 003F FFC0 000F FF80 0007 FE00"
  63.     }
  64. };
  65.  
  66. resource 'ICON' (128) {
  67.     $"0000 0000 001F E000 00F0 3800 0380 0C00"
  68.     $"0600 0600 0400 0300 0800 0100 0800 0180"
  69.     $"1000 00E0 1000 0720 207C 0CD0 60C6 1030"
  70.     $"4081 2F90 417C 0F90 417C 0F20 407C CF40"
  71.     $"2038 E640 2001 E020 1001 F020 0803 F820"
  72.     $"0403 F020 0200 0040 0100 0080 0084 9480"
  73.     $"0084 AA80 008E AD00 0045 5500 0041 5100"
  74.     $"0060 0100 0018 0E00 0007 F800 0000 0000"
  75. };
  76.  
  77. resource 'MENU' (1002, "Edit") {
  78.     1002,
  79.     textMenuProc,
  80.     0x7FFFFFFD,
  81.     enabled,
  82.     "Edit",
  83.     {    /* array: 6 elements */
  84.         /* [1] */
  85.         "Undo", noIcon, "Z", noMark, plain;
  86.         /* [2] */
  87.         "-", noIcon, noKey, noMark, plain;
  88.         /* [3] */
  89.         "Cut", noIcon, "X", noMark, plain;
  90.         /* [4] */
  91.         "Copy", noIcon, "C", noMark, plain;
  92.         /* [5] */
  93.         "Paste", noIcon, "V", noMark, plain;
  94.         /* [6] */
  95.         "Clear", noIcon, noKey, noMark, plain
  96.     }
  97. };
  98.  
  99. resource 'MENU' (1001, "File") {
  100.     1001,
  101.     textMenuProc,
  102.     0x7FFFFFFB,
  103.     enabled,
  104.     "File",
  105.     {    /* array: 4 elements */
  106.         /* [1] */
  107.         "Open…", noIcon, "O", noMark, plain;
  108.         /* [2] */
  109.         "Close", noIcon, noKey, noMark, plain;
  110.         /* [3] */
  111.         "-", noIcon, noKey, noMark, plain;
  112.         /* [4] */
  113.         "Quit", noIcon, "Q", noMark, plain
  114.     }
  115. };
  116.  
  117. resource 'MENU' (1000, "Apple") {
  118.     1000,
  119.     textMenuProc,
  120.     0x7FFFFFFD,
  121.     enabled,
  122.     apple,
  123.     {    /* array: 2 elements */
  124.         /* [1] */
  125.         "About MultiSkel…", noIcon, noKey, noMark, plain;
  126.         /* [2] */
  127.         "-", noIcon, noKey, noMark, plain
  128.     }
  129. };
  130.  
  131. resource 'WIND' (1000, "Help") {
  132.     {120, 14, 334, 424},
  133.     documentProc,
  134.     visible,
  135.     goAway,
  136.     0x0,
  137.     "Help Window"
  138. };
  139.  
  140. resource 'WIND' (1003, "Rgn") {
  141.     {45, 90, 260, 500},
  142.     documentProc,
  143.     visible,
  144.     goAway,
  145.     0x0,
  146.     "Region Window"
  147. };
  148.  
  149. resource 'WIND' (1001, "Edit") {
  150.     {95, 40, 310, 450},
  151.     documentProc,
  152.     visible,
  153.     goAway,
  154.     0x0,
  155.     "Edit Window"
  156. };
  157.  
  158. resource 'WIND' (1002, "Zoom") {
  159.     {70, 65, 285, 475},
  160.     documentProc,
  161.     visible,
  162.     goAway,
  163.     0x0,
  164.     "Zoom Window"
  165. };
  166.  
  167. data 'TEXT' (1000, "Help Text") {
  168.     $"5769 6E64 6F77 730D 0D54 6869 7320 7769"        /* Windows¬¬This wi */
  169.     $"6E64 6F77 2069 7320 7468 6520 4D75 6C74"        /* ndow is the Mult */
  170.     $"6953 6B65 6C20 4865 6C70 2057 696E 646F"        /* iSkel Help Windo */
  171.     $"772E 2020 4974 2065 7870 6C61 696E 7320"        /* w.  It explains  */
  172.     $"7468 6520 6675 6E63 7469 6F6E 206F 6620"        /* the function of  */
  173.     $"7468 6520 6F74 6865 7220 4D75 6C74 6953"        /* the other MultiS */
  174.     $"6B65 6C20 5769 6E64 6F77 732C 2061 7320"        /* kel Windows, as  */
  175.     $"7765 6C6C 2061 7320 7468 6520 4D65 6E75"        /* well as the Menu */
  176.     $"732E 0D0D 5468 6520 5465 7874 2057 696E"        /* s.¬¬The Text Win */
  177.     $"646F 7720 6973 2061 2073 696D 706C 6520"        /* dow is a simple  */
  178.     $"7465 7874 2065 6469 7469 6E67 2077 696E"        /* text editing win */
  179.     $"646F 772C 2069 6E20 7768 6963 6820 7374"        /* dow, in which st */
  180.     $"616E 6461 7264 204D 6163 696E 746F 7368"        /* andard Macintosh */
  181.     $"2065 6469 7469 6E67 206F 7065 7261 7469"        /*  editing operati */
  182.     $"6F6E 7320 6D61 7920 6265 2070 6572 666F"        /* ons may be perfo */
  183.     $"726D 6564 2E20 2054 6865 2045 6469 7420"        /* rmed.  The Edit  */
  184.     $"6D65 6E75 206D 6179 2062 6520 7573 6564"        /* menu may be used */
  185.     $"2077 6974 6820 7468 6973 2077 696E 646F"        /*  with this windo */
  186.     $"772E 0D0D 5468 6520 5A6F 6F6D 2057 696E"        /* w.¬¬The Zoom Win */
  187.     $"646F 7720 636F 6E74 6169 6E73 2061 2073"        /* dow contains a s */
  188.     $"696D 706C 6520 6772 6170 6869 6373 2064"        /* imple graphics d */
  189.     $"6973 706C 6179 2C20 7768 6963 6820 6164"        /* isplay, which ad */
  190.     $"6A75 7374 7320 6974 7365 6C66 2074 6F20"        /* justs itself to  */
  191.     $"7468 6520 7369 7A65 206F 6620 7468 6520"        /* the size of the  */
  192.     $"7769 6E64 6F77 2E20 2043 6C69 636B 2074"        /* window.  Click t */
  193.     $"6865 206D 6F75 7365 2069 6E20 7468 6973"        /* he mouse in this */
  194.     $"2077 696E 646F 7720 746F 2070 6175 7365"        /*  window to pause */
  195.     $"2074 6865 2064 6973 706C 6179 2E0D 0D53"        /*  the display.¬¬S */
  196.     $"696D 706C 6520 7265 6769 6F6E 206D 616E"        /* imple region man */
  197.     $"6970 756C 6174 696F 6E20 6973 2064 6F6E"        /* ipulation is don */
  198.     $"6520 696E 2074 6865 2052 6567 696F 6E20"        /* e in the Region  */
  199.     $"5769 6E64 6F77 2E20 2043 6C69 636B 2061"        /* Window.  Click a */
  200.     $"6E64 2064 7261 6720 7468 6520 6D6F 7573"        /* nd drag the mous */
  201.     $"6520 696E 2069 7420 746F 2064 7261 7720"        /* e in it to draw  */
  202.     $"7265 6374 616E 676C 6573 2E20 2054 6865"        /* rectangles.  The */
  203.     $"7365 2061 7265 2063 6F6D 6269 6E65 6420"        /* se are combined  */
  204.     $"616E 6420 616E 206F 7574 6C69 6E65 206F"        /* and an outline o */
  205.     $"6620 7468 6520 7265 7375 6C74 696E 6720"        /* f the resulting  */
  206.     $"7265 6769 6F6E 2069 7320 6472 6177 6E2E"        /* region is drawn. */
  207.     $"2020 5265 6374 616E 676C 6573 2064 7261"        /*   Rectangles dra */
  208.     $"776E 2077 6869 6C65 2074 6865 2073 6869"        /* wn while the shi */
  209.     $"6674 206B 6579 2069 7320 6865 6C64 2064"        /* ft key is held d */
  210.     $"6F77 6E20 6172 6520 7375 6274 7261 6374"        /* own are subtract */
  211.     $"6564 2066 726F 6D20 7468 6520 7265 6769"        /* ed from the regi */
  212.     $"6F6E 2E20 2044 6F75 626C 652D 636C 6963"        /* on.  Double-clic */
  213.     $"6B20 7468 6520 6D6F 7573 6520 746F 2063"        /* k the mouse to c */
  214.     $"6C65 6172 2074 6865 2064 6973 706C 6179"        /* lear the display */
  215.     $"2E0D 0D4D 656E 7573 0D0D 5468 6520 4170"        /* .¬¬Menus¬¬The Ap */
  216.     $"706C 6520 4D65 6E75 2073 7570 706F 7274"        /* ple Menu support */
  217.     $"7320 6465 736B 2061 6363 6573 736F 7269"        /* s desk accessori */
  218.     $"6573 2069 6E20 7468 6520 7374 616E 6461"        /* es in the standa */
  219.     $"7264 206D 616E 6E65 722E 0D0D 496E 2074"        /* rd manner.¬¬In t */
  220.     $"6865 2046 696C 6520 4D65 6E75 2C20 4F70"        /* he File Menu, Op */
  221.     $"656E 206D 616B 6573 2061 6C6C 204D 756C"        /* en makes all Mul */
  222.     $"7469 536B 656C 2077 696E 646F 7773 2076"        /* tiSkel windows v */
  223.     $"6973 6962 6C65 2E20 2043 6C6F 7365 2068"        /* isible.  Close h */
  224.     $"6964 6573 2074 6865 2066 726F 6E74 6D6F"        /* ides the frontmo */
  225.     $"7374 2077 696E 646F 772E 2020 4966 2074"        /* st window.  If t */
  226.     $"6865 2077 696E 646F 7720 6265 6C6F 6E67"        /* he window belong */
  227.     $"7320 746F 2061 2064 6573 6B20 6163 6365"        /* s to a desk acce */
  228.     $"7373 6F72 792C 2074 6865 2061 6363 6573"        /* ssory, the acces */
  229.     $"736F 7279 2069 7320 636C 6F73 6564 2E20"        /* sory is closed.  */
  230.     $"2051 7569 7420 6578 6974 7320 4D75 6C74"        /*  Quit exits Mult */
  231.     $"6953 6B65 6C2E 0D0D 5468 6520 4564 6974"        /* iSkel.¬¬The Edit */
  232.     $"204D 656E 7520 6973 2075 7365 6420 7769"        /*  Menu is used wi */
  233.     $"7468 2074 6865 2054 6578 7420 5769 6E64"        /* th the Text Wind */
  234.     $"6F77 2061 6E64 2064 6573 6B20 6163 6365"        /* ow and desk acce */
  235.     $"7373 6F72 6965 7320 7468 6174 2061 6C6C"        /* ssories that all */
  236.     $"6F77 2065 6469 7469 6E67 2E"                    /* ow editing. */
  237. };
  238.  
  239.